Public Class Table

    Private _List As String
    Private _View As String
    Private _Alias As String

    Public Property List() As String
        Get
            Return _List
        End Get
        Set(ByVal value As String)
            If value.Contains(".") Then
                _List = value.Split(".")(0)
                _View = value.Split(".")(1)
            Else
                _List = value
            End If
        End Set
    End Property

    Public Property [Alias]() As String
        Get
            Return _Alias
        End Get
        Set(ByVal value As String)
            _Alias = value
        End Set
    End Property

    Public Property View() As String
        Get
            Return _View
        End Get
        Set(ByVal value As String)
            If value.Contains(".") Then
                _List = value.Split(".")(0)
                _View = value.Split(".")(1)
            Else
                _View = value
            End If
        End Set
    End Property
End Class
Public Class ID
    Implements IAlias

    Private _Name As String
    Private _Alias As String

    Public Function GetName() As String
        If Name = String.Empty Then
            Return Name
        Else
            Return [Alias]
        End If
    End Function

    Public Property [Alias]() As String Implements IAlias.Alias
        Get
            Return _Alias
        End Get
        Set(ByVal value As String)
            _Alias = value
        End Set
    End Property

    Public Property Name() As String Implements IAlias.Name
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property
End Class